% THIS IS A PROGRAM NEEDED BY 'HAR000' AND 'TALK00'.  TO RECONSTRUCT THE DOCJOB CORE IMAGE:

	.R MLISPC					( COMPILE DOCJOB )
	*(MLISP DOCJOB T)
	*↑C

	.R LISP 16					( READ IN THE LAP CODE )
	ALLOC? Y
	FULL WDS=2000_					( _ MEANS <SPACE> )
	BIN.PROG.SP=2600_
	SPEC.PDL=_
	REG. PDL=_
	HASH=_
	*(DSKIN (DOCJOB.LAP) (S,DAV) (MAIL.FNS) SYS: UTILS)
	*(MAIL_INIT)
	*(INITFN (QUOTE RESTART))
	*↑C
	.SAVE DOCJOB

TO RUN THE PROGRAM, TYPE
	.RUN DOCJOB[4,KMC]
%


BEGIN


PRINTSTR "
IF THE SYSTEM GOES DOWN,
YOU MAY HAVE TO RETYPE YOUR LAST QUESTION.
WE WILL BE READY TO GO IN A MINUTE.

";
WHILE T DO EVAL WAIT_FOR_MAIL(T);	% GET AND EXECUTE A COMMAND FROM SOMEONE. %


EXPR READ_MESSAGE ();			% A FUNCTION FOR READING THE DOCTOR'S MESSAGE. %
	BEGIN  NEW CH, L;
	PRINTSTR "READY:";
	DO NIL UNTIL (CH ← READCH()) NEQ CR & CH NEQ LF & CH NEQ ALTMODE;
	TERPRI TERPRI DO L ← CH CONS L UNTIL (CH ← READCH()) EQ ALTMODE & (CH ← READCH()) EQ ALTMODE;
	RETURN READLIST('?" CONS REVERSE('?" CONS L));
	END;


END.